﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class PresupuestoFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As PresupuestoBE
        Dim tmpPresupuesto As PresupuestoBE = New PresupuestoBE()
        Try
            With tmpPresupuesto
                .Cantidad = convertDTFromDb.convertDouble(dr.Item("Cantidad"))
                .Descripcion = convertDTFromDb.ConvertString(dr.Item("Descripcion"))
                .Grupo = convertDTFromDb.ConvertString(dr.Item("Grupo"))
                .IDCCosto = convertDTFromDb.ConvertString(dr.Item("IDCCosto"))
                .IDNeodata = convertDTFromDb.ConvertString(dr.Item("IDNeodata"))
                .IdObra = convertDTFromDb.ConvertString(dr.Item("IdObra"))
                .IdOpus = convertDTFromDb.ConvertString(dr.Item("IdOpus"))
                .Monto = convertDTFromDb.convertDouble(dr.Item("Monto"))
                .Nombre = convertDTFromDb.ConvertString(dr.Item("Nombre"))
                .Precio = convertDTFromDb.convertDouble(dr.Item("Precio"))
                .Unidad = convertDTFromDb.ConvertString(dr.Item("Unidad"))
            End With
            Return tmpPresupuesto
        Catch ex As Exception
            Throw
        Finally
            tmpPresupuesto = Nothing
        End Try
    End Function
End Class
